home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / netmail_13.lha / NetMail / Drivers / SE.editor < prev    next >
Text File  |  1995-09-30  |  912b  |  50 lines
  1. /*
  2. ** $VER: SE.editor 1.2 (30.9.95)
  3. ** Copyright (c) 1995 Riccardo Solmi
  4. **
  5. */
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 21
  9.  
  10. cmd = 'SC:c/SE'
  11. IF ~EXISTS(cmd) THEN RETURN 2
  12.  
  13. SELECT
  14.    WHEN UPPER(ARG(1)) = 'EDIT' THEN DO
  15.       PARSE ARG , file, port
  16.  
  17.       port = 'SC_SE'
  18.       IF ~show('P', port) THEN DO
  19.          ADDRESS COMMAND
  20.          'Run >NIL: "'cmd'" "'file'"'
  21.          'WaitForPort' port
  22.          IF RC ~= 0 THEN RETURN 5
  23.       END
  24.       ELSE DO
  25.          ADDRESS VALUE port
  26.          'PM "O" "'file'\n"'
  27. /*
  28.          'OW "'file'\n"'
  29. */
  30.       END
  31.    END
  32.    WHEN UPPER(ARG(1)) = 'SAVE' THEN DO
  33.       PARSE ARG , port
  34.  
  35.       IF SHOW('P', port) & port = 'SC_SE' THEN DO
  36.          ADDRESS VALUE port
  37.          'PM "C"'
  38.       END
  39.    END
  40.    WHEN UPPER(ARG(1)) = 'CLOSE' THEN DO
  41.       PARSE ARG , port
  42.  
  43.       IF SHOW('P', port) & port = 'SC_SE' THEN DO
  44.          ADDRESS VALUE port
  45.          'QU'
  46.       END
  47.    END
  48. END
  49. RETURN port
  50.